How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/aindex.dir/00749_Script_aRefLink

Text File | 1995-09-06 | 1KB | 41 lines

--òò aRefLink
property pCast, pSprite , pRange, pFunctionCast

on birth me , theCast ,theSprite,theRange,theFunctionCast
  set pCast = theCast
  set pSprite = theSprite
  set pRange = theRange
  set pFunctionCast = theFunctionCast
  return me
end

--on clickRefLink me , theOffset
--  set theHOffset = the mouseH
--  set theVOffset = the mouseV
--  --put theHOffset , theVOffset
--
--  set thisRec = getAt(pHotSpots,1)
--  set rleft = getAt(thisRec,1)
--  set rtop = getAt(thisRec,2)
--  set rright = getAt(thisRec,3)
--  set rbottom = getAt(thisRec,4)
--  if ((theHOffset > rleft and theHOffset < rright ) ┬
--     and (theVOffset > rtop and theVOffset < rbottom ) ) then
--    put "HIT"
--  else
--    put "MISS",rleft,rtop,rright,rbottom
--  end if
--end

--rect(left, top, right, bottom)
on showRefLinkIcon me , theOffset
  set subFunctionOffset = theOffset/26
  set the castNum of sprite 40 = (pCast + subFunctionOffset)
  set the locH of sprite 40 = 320
  set the locV of sprite 40 = 240
end

on clearRefLinkIcon me
  set the locH of sprite 40 = -300
  set the locV of sprite 40 = -200
end